﻿Imports System.IO
Imports System.Drawing

Public Class IconsAndPaths
    Public IconsPathsDi As New Dictionary(Of String, String())

    Public Function GetIconsAndPaths() As Dictionary(Of String, String())
        AddToDictionary("Sales", "Images/business.png", "")
        AddToDictionary("Purchase", "Images/kaddressbook.png", "")
        AddToDictionary("Purchase Order", "Images/parallels.png", "")
        AddToDictionary("Receipt", "Images/easymoblog.png", "")
        AddToDictionary("Payment", "Images/kmenuedit.png", "")
        AddToDictionary("Item List", "Images/warehause.png", "")
        AddToDictionary("Client List", "Images/kuzer.png", "")
        AddToDictionary("Vendor List", "Images/gvim.png", "")
        AddToDictionary("Look-ups", "Images/starthere.png", "")
        AddToDictionary("Ledgers", "Images/kate.png", "")
        AddToDictionary("Financial Year", "Images/database.png", "")
        AddToDictionary("Company Info", "Images/korganizer.png", "")
        AddToDictionary("Users List", "Images/personal.png", "")
        AddToDictionary("User Profile", "Images/Community Help.png", "")
        Return IconsPathsDi
    End Function

    Private Sub AddToDictionary(ByVal displayName As String, ByVal tileIconPath As String, _
                               ByVal exePath As String)
        If Not IconsPathsDi.ContainsKey(displayName) Then
            IconsPathsDi.Add(displayName, New String() {tileIconPath, exePath})
        End If
    End Sub
End Class

Public Enum FormsList
    None
    Sales
    ClientList
    PurchaseOrder
    Receipt
    Purchase
    CompanyInfo
    ItemsList
    Lookup
    VendorList
    Ledgers
    FinancialYear
    UsersList
    UserProfile
    Payment
End Enum